inherited FrmTamanhosTabela: TFrmTamanhosTabela
  Left = 340
  Top = 102
  Caption = 'Tabelas de Tamanhos'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited PnlTexto: TPanel
      Caption = 'Tabela de Tamanhos'
    end
    inherited Panel4: TPanel
      inherited GbxMestre: TGroupBox
        Height = 69
        Caption = 'Tamanhos'
        object Label1: TLabel
          Left = 16
          Top = 16
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object Label2: TLabel
          Left = 144
          Top = 16
          Width = 28
          Height = 13
          Caption = 'Nome'
        end
        object DBEdit1: TDBEdit
          Left = 16
          Top = 32
          Width = 121
          Height = 21
          Hint = 'C'#243'digo'
          DataField = 'TAM_CODIGO'
          DataSource = dsMestre
          Enabled = False
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 144
          Top = 32
          Width = 121
          Height = 21
          Hint = 'Nome'
          DataField = 'TAM_NOME'
          DataSource = dsMestre
          Enabled = False
          TabOrder = 1
        end
      end
      inherited GbxDetalhe: TGroupBox
        Top = 73
        Height = 339
        Caption = 'Tabela de Tamanhos'
        inherited DBGridDetalhe: TDBGrid
          Height = 222
          Columns = <
            item
              Expanded = False
              FieldName = 'TAB_CODIGO'
              Title.Caption = 'C'#211'DIGO'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TAB_ORDEM'
              Title.Caption = 'ORDEM'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TAB_TAMANHO'
              Title.Caption = 'TAMANHO'
              Visible = True
            end>
        end
        inherited GbxFieldsDetalhe: TGroupBox
          object Label3: TLabel
            Left = 16
            Top = 16
            Width = 33
            Height = 13
            Caption = 'C'#243'digo'
          end
          object Label4: TLabel
            Left = 144
            Top = 16
            Width = 31
            Height = 13
            Caption = 'Ordem'
          end
          object DBEdit3: TDBEdit
            Left = 16
            Top = 32
            Width = 121
            Height = 21
            Hint = 'C'#243'digo'
            DataField = 'TAB_CODIGO'
            DataSource = DsDetalhe
            Enabled = False
            TabOrder = 0
          end
          object DBEdit4: TDBEdit
            Left = 144
            Top = 32
            Width = 121
            Height = 21
            Hint = 'Ordem'
            DataField = 'TAB_ORDEM'
            DataSource = DsDetalhe
            Enabled = False
            TabOrder = 1
          end
        end
      end
    end
  end
  inherited dsMestre: TDataSource
    Left = 93
    Top = 301
  end
  inherited DsDetalhe: TDataSource
    Left = 221
    Top = 298
  end
  inherited DsDetalheGrid: TDataSource
    DataSet = SQLC_TabelaTamanhos
    Left = 351
    Top = 301
  end
  object SQLC_TabelaTamanhos: TSQLClientDataSet
    CommandText = 
      'select *  from TABELA_TAMANHOS where TAB_CODIGO=:idf and TAB_TAM' +
      'ANHO = :tamanho;'
    Aggregates = <>
    Options = [poAllowMultiRecordUpdates, poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'idf'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftString
        Name = 'tamanho'
        ParamType = ptInput
        Value = '0'
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 225
    Top = 362
  end
  object SQLC_ConsultaDbGrid: TSQLClientDataSet
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 355
    Top = 360
  end
  object SQLC_Tamanhos: TSQLClientDataSet
    CommandText = 'select * from TAMANHOS where tam_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 97
    Top = 363
    object SQLC_TamanhosTAM_CODIGO: TStringField
      FieldName = 'TAM_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_TamanhosTAM_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'TAM_NOME'
      Size = 35
    end
  end
end
